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| PASSRAB Get RAB address of file 1bese ~ge0n 1386 01: o¢: + AX-11 Bliss-32 V4.0-742 Page 1. 
14-Sep-1984 12:51:4 PASRTL.SRCJPASRAB.B32; 1 (1). 


is 1 0001 Q MODULE PASSRAB ( XTITLE ‘Get RAB address of file’ | : 
: ¢ B08 . te = '1-001' ! File: PASRAB.B32 Edit: $BL1001 : 
ine 0004 1 BEGIN ; 
Bb 5 0005 1! : 
}4 § sie) : pease ep cesipsance ear gneictinn spree ig é 
D4 .* ® } Ps 
i: 8 0008 1 i* COPYRIGHT (c) 1978, 1980, 1982, 1984 ‘ | : 
; 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * : 
; + Baty : . ALL RIGHTS RESERVED. . : 
; '® * 3 
; \¢ Bots 1 !® THIS "ithe 4 FURNISHED a A LICENSE AND MAY BE USED AND gt bt * ; 
; 1 001 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
: 1% 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
: 15 0015 1 ‘* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
; 16 0016 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; i? pote ’ te TRANSFERRED. * | ; 
s '® ‘ ; 
; 19 0019 1 !® pie gt ory le IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
: 20 0020 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ° 
3 $3 bos) ; * CORPORATION. * : 
° :* ® ° 
; 23 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
. ae 0025 1 !* © : 
; 0026 1 !* * : 
: a7 GCO27 1 eee eee ee eA EEE EEA EEE 3 
; a 0028 1! | : 
: $3 0029 1 : 
; 0 0030 1 !++ $ 
; 3 0031 1 ! FACILITY: Pascal Language Support 3 
; itT4 1! 3 
; 0033 1 | ABSTRACT: : 
; 3 0034 1} F 
3 35 0035 1! This module contains a procedure which returns a pointer to the 

; 39 aie . RMS RAB for a specified file. 

: $3 Boas : ENVIRONMENT: User mode - AST reentrant 

: re srk : AUTHOR: Steven B. Lionel, CREATION DATE: 19-October-1981 

3; «42 0042 1 | MODIFIED BY: 

; 63 0043 1! 

> 66 0044 1! 1-001 - Original. SBL 19-October-1981 | 

.. - 0045 1 i- 
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K 1 
address of file 16-Sep-1984 01:52:2 AX-11 Bliss-32 V4.0-742 P 3 PA’ 
~ Get RAB address of file 1e-8eb=1984 93584 249 PASRTL.SRCJPASRAB.B32; 1 29° 03) 1-( 
ZSBTTL "PASSRAB = Get RAB address of file' ; 
GLOBAL ROUTINE PASS$RAB_ ( ! Get RAB address of file 3 
PFV: REF SPASSPFY_FILE_VARIABLE ! File variable ; 


This procedure returns a pointer to the RMS Record Attributes 
Block (RAB) for the specified file, if one exists. 


CALLING SEQUENCE: 
rab.wa.v = PASS$RAB (pfv.rr.r) 
! FORMAL PARAMETERS: 


PFV - The Pascal File Variable (PFV) passed my rererences 


The structure of the PFV is defined in PASPFV.REQ. 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

The address of the file's RAB if there is one, otherwise zero. 
SIDE EFFECTS: 

Opens INPUT or OUTPUT. 
SIGNALLED ERRORS: 

NONE 


BEGIN 


LOCAL 
FCB: REF SPAS$FCB_CONTROL_BLOCK; ! File Control Block 
'¢ 


| 
| 
| 

++ 

FUNCTIONAL DESCRIPTION: 

: Check for a valid FCB pointer. 


BEGIN 


IF NOT .PFV CPFVS$V_FCB_VALID] 
‘+ 
! The FCB pointer is not valid. Checi to see if the file 
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Get RAB address of file 
Get RAB address of file 


! is INPUT or OUTPUT and if so, 
do it. 


; 5. te ety opened. If so, 


1 
IESepIgR 8H 


AX-11 at HSS v4.0 35/9 
PASRTL.SRCJPASRAB. B32 Fa 


whether or not it should be 


it CPFVSR_PFV] EQLA PASSFV_INPUT) AND NOT .PASSS$GV_INPUT_OPENED 


peresete (PFV CPFVSR_PFVJ) 
PFVSR_PFV) EOLA. PASSFV OUTPUT) AND NOT .PAS$$GV_OUTPUT_OPENED 


THEN 
ew PASSREWRITE2 (PFV CPFVSR_PFV]); 


ELSE. iF (PFV 


'¢ 


i The file may or may not have been opened. 


- as valid, return it, otherwise return zero. 


IF .PFV CPFVSV_FCB_VALIDJ 
THEN 
es 
FCB = .PFV CPFV$A_FCB); 
Md F NOT’. -FCB CFCBST_ STRING) 
RETURN .PFV CPFVSA_FCB] 
ELSE 
RETURN 0; 
SE : 
RETURN 0; 
END; 
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! End of 


If the FCB Link is shown 


routine PAS$RAB 
PASS$RAB Get RAB address of file 
\1-001\ 


PASSRAB, PAS$$GV_INPUT_OPENED 
PASSRESET2 PASS$SGV_OUTPUT_OPENED 
PASSREWRITE2 

PASSFV_INPUT, PASSFV_OUTPUT 
_PASSCODE,NOWRT, SHR, PIC,2 


PASSRAB, Save R2 

#6, 7(Re), 3$ 
PASSFV_INPUT, RO 

Re. RO 
PASS$$GV_INPUT_OPENED, 1$ 


#1, PASSRESET2 
PASSFV_OUTPUT, RO 
R2, RO 


PAS$$GV_OUTPUT_OPENED, 2$ 


--_ a 


M Ae! 
| PASSRAB Get RAB address of file 16-Sep AX-11 Bliss-32 V4.0-7 P 5 
1-001 PASSRAB = Get RAB address of file 1278 Sep 71382 93: 34 29 PASRTL.SR RCIPASRAB, B32: mo (3) 
52 DD 0003C PUSHL R : 0206 ; 
sated | 0 4 FB p i CALLS #1, PASS$REWRITE2 : 3 
r A § E1 4 $$ BBC #6 7(R2), 4$ 3: 0214 $ 
5 OC A2 BO 0004A 3$ MOVL  12(R2), FCB : 0217 ; 
06 FE AO 04 €0 0004 BBS #4, rs ad a 4$ 3 Beis 3 
52 Oc A2 00 pabe MOVL 12(R2), R : 0222 ; 
9 11 0005 BRB 5$ é : 
D4 00059 4$: CLRL Rs ; 0225 3 
50 52 DO 00058 5$: MOVL R2, RO : 3 
04 0005E RET : 0227 : 
; Routine Size: 95 bytes, Routine Base: _PASSCODE + 0000 
> 167 0228 1 ; 
3; 168 0229 1 !<BLF/PAGE> : 
; «6169 0230 1 END ! End of module PASS$RAB 3 
: 170 0231 1 F 
: 171 0232 0 ELUDOM : 
; PSECT SUMMARY : 
: Name Bytes Attributes F 
: PASSCODE 95 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
; Library Statistics ; 
2 ae ae be Pe ee Symbols -------- Pages Processing ; 
: File Total Loaded Percent Mapped Time : 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 ; 
 ~$255$DUA28:CPASRTL.OBJ IPAS SLIB.L32;1 427 85 19 33 00:00.4 : 
; COMMAND QUALIFIERS 


3; Size: 95 code + 0 data bytes 
3; Run Time: 00:04.3 é 
; Elapsed Time: 09: 38- “a ’ 
3 Lines/CPU Min: 2 


; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:PASRAB/OBJ=OBJ$:PASRAB MSRC$:PASRAB/UPDATE=(ENH$:PASRAB) 
- Lexemes/CPU-Min: 7962 
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PASSRAB = Get RAB address of file 


Used: 59 pages 
tion Complete 
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